-- card: 4006 from stack: in
-- bmap block id: 7865
-- flags: 0000
-- background id: 2789
-- name: newDay
----- HyperTalk script -----


on openCard  --from field bbtime..to card "black"..to here
  global justVisiting,landtime
  global nextDay

  if nextDay is empty then
    set the cursor to 4
    send "doit" to card field "effort"
    set the lockscreen to false


    set the lockScreen to true
    put 1 into justVisiting
    put 0 into landtime
    put 7 into temp
    repeat while temp <13   -- goes to tangmere add 1 for each new base
      go to card temp
      add 1 to temp
    end repeat
  end if
  put 1 into nextDay --so that we don't loop through the sectors again
  go to card "newDay" --will this solve update prob?

  set lockScreen to false
end openCard



-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=219 top=61 right=73 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: newsdate


-- part 6 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=406 top=48 right=60 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 9
-- part name: newsweather


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=10 top=160 right=178 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 14
-- style flags: 256
-- line height: 16
-- part name: BOMBED


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=94 top=75 right=101 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 24
-- style flags: 256
-- line height: 26
-- part name: HEADLINE


-- part 10 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=181 top=106 right=124 bottom=217
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 18
-- style flags: 512
-- line height: 19
-- part name: gplanes


-- part 11 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=101 top=130 right=149 bottom=132
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 18
-- style flags: 512
-- line height: 19
-- part name: bplanes


-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=491 top=320 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of button "go" of card "Map" to false

  visual wipe left slowly
  go to card "Map"
end mouseUp




-- part 1 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=251 top=88 right=339 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: effort
----- HyperTalk script -----
on mouseUp
  hide card field "effort"
end mouseUp

on doit
  global effort,weather,raid,objective,lessUs,lessEnemy,newsRaid,bbDate
  global openBase
  delete line 12 to 14 of card field "effort"
  hide card field id 1



  if bbdate contains "Aug 16" then
    put " No.1RCAF Hurricane Squadron to Northolt" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 18" then
    put " No.602 Spitfire Squadron to Tangmere" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 19" then
    put " No.72 Spitfire Squadron to Kenley" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 26" then
    put " No.41 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 27" then
    put " No.79 Spitfire Squadron to Biggen Hill" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 28" then
    put " No.253 Hurricane Squadron to Kenley" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 29" then
    put " No.222 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 30" then
    put " No.303 Hurricane Squadron to Northolt" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "aug 31" then
    put " No.249 Hurricane Squadron to North Weald" into line 11 of card field id 1
    put " No.616 Spitfire Squadron to Kenley" into line 12 of card field id 1
    show card field id 1
  end if

  if bbdate contains "sept 2" then
    put " No.603 Spitfire Squadron to Hornchurch" into line 11 of card field id 1
    show card field id 1
  end if
  if bbdate contains "sept 5" then
    put " No.257 Spitfire Squadron to Northolt" into line 11 of card field id 1
    show card field id 1
  end if

  if bbdate contains "sept 8" then
    put " No.229 Spitfire Squadron to Northolt" into line 11 of card field id 1
    show card field id 1
  end if
  put bbDate into card field "newsdate"


  if weather contains "RAIN" then
    put "A WELCOME RESPITE" into card field "bombed"
    put "NO NAZI" into card field "headline"
  else
    if newsraid contains "none" then
      put "ZERO!!!" into card field "headline" of card "newDay"
      put "ALL ENGLAND QUIET" into card field "bombed" of card "newDay"
    else
      if newsRaid contains "major" then put "MAJOR" into card field "headline"
      if newsRaid contains "minor" then put "MINOR" into card field "headline"
      get item 11 of objective  ---tangmere,poling,etc
      put it into card field "bombed"
    end if
  end if
  put lessUs into card field "bPlanes" --TEST
  if lessUs <1 then put "no" into card field "bplanes"
  put 0 into lessUs
  put lessEnemy into card field "gplanes"
  if lessEnemy <1 then put "no" into card field "gplanes"
  put 0 into lessEnemy
  put empty into newsraid
  --TOMORROWS WEATHER FOLLOWS
  get the random of 6
  put it into temp
  if weather is "rain" then put "light" into effort
  put empty into weather
  if temp <3 then put "CLEAR" into weather
  if temp >2 and temp <6 then put "CLOUDY" into weather
  if temp >5 then put "RAIN" into weather
  put weather into card field "newsweather"
  if weather contains "RAIN" then
    exit doit
  end if
  put the random of 6 into temp
  if weather is "clear" then
    if effort is "heavy" then
      put item temp of line 1 of card field "efforts" into effort
    end if
    if effort is "normal" then
      put item temp of line 2 of card field "efforts" into effort
    end if
    if effort is "light" then
      put item temp of line 3 of card field "efforts" into effort
    end if
  end if
  if weather is "cloudy" then
    if effort is "heavy" then
      put item temp of line 4 of card field "efforts" into effort
    end if
    if effort is "normal" then
      put item temp of line 5 of card field "efforts" into effort
    end if
    if effort is "light" then
      put item temp of line 6 of card field "efforts" into effort
    end if
  end if

  IF OPENBASE >0 THEN
    repeat with i = 1 to 6
      set icon of button id i of card "map" to 27637
    end repeat
  end if

end doit






-- part 13 (field)
-- low flags: 80
-- high flags: 4001
-- rect: left=195 top=188 right=309 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 11
-- part name: newsCopy


-- part 15 (field)
-- low flags: 81
-- high flags: 4001
-- rect: left=156 top=120 right=194 bottom=385
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 11
-- part name: efforts


-- part contents for card part 6
----- text -----
CLEAR

-- part contents for card part 9
----- text -----
MINOR

-- part contents for card part 1
----- text -----
Headquarters Fighter Command
Bentley Priory
Stanmore
Mdsx

To:
Air Officer Commanding
No. 11 Group

    Effective tomorrow morning the following squadrons are reassigned:
 No.229 Spitfire Squadron to Northolt


-- part contents for card part 13
----- text -----
Overcast skies throughout Southeast England today brought out the enemy in force. A major raid over Tangmere resulted in many casualties and heavy damage to the airbase. Elsewhere things were quiet
hampered Hitlers' efforts some.   minor  a few slight
brought the nation some relief.   major  many heavy
Sunny weather                            
Thunderstorms
Overcast skies

-- part contents for card part 5
----- text -----
Sept 9 1940

-- part contents for card part 15
----- text -----
HEAVY,NORMAL,NORMAL,NORMAL,LIGHT,LIGHT
HEAVY,HEAVY,HEAVY,NORMAL,NORMAL,LIGHT
HEAVY,HEAVY,HEAVY,HEAVY,NORMAL,NORMAL
NORMAL,NORMAL,LIGHT,LIGHT,LIGHT,LIGHT
HEAVY,NORMAL,NORMAL,NORMAL,LIGHT,LIGHT
HEAVY,HEAVY,NORMAL,NORMAL,LIGHT,LIGHT

-- part contents for card part 8
----- text -----
CANTERBURY BLITZED

-- part contents for card part 11
----- text -----
no

-- part contents for card part 10
----- text -----
no